home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 November & December / Amiga-CD 1996 #11-12.iso / pd-disketten / dms-gepackt / 2_96 / apd-2-96-2.dms / apd-2-96-2.adf / Amiga-E-Kurs / Listing_1.e < prev    next >
Text File  |  1996-01-16  |  404b  |  13 lines
  1. DEF zeiger:PTR TO LONG, a=2
  2.  
  3. PROC main()
  4.   WriteF('1. zeiger = $\z\h[8]  a = \d\n',zeiger,a)
  5.   zeiger:={a} /* Zeiger auf Adresse von a richten */
  6.   WriteF('2. zeiger = $\z\h[8]  a = \d\n',zeiger,a)
  7.   ^zeiger:=5 /*an Adresse, auf die zeiger verweist,
  8.                den Wert 5 schreiben*/
  9.   WriteF('3. zeiger = $\z\h[8]  a = \d\n',zeiger,a)
  10.   a:=6
  11.   WriteF('4. ^zeiger = \d   a = \d\n',^zeiger,a)
  12. ENDPROC
  13.